home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #14 / Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO / prog_bas / mdbguru.zip / TEXTBOX.COD < prev    next >
Text File  |  1995-02-21  |  510b  |  17 lines
  1. ; default code for a text box control
  2.  
  3. ; got focus to change background color
  4. sub  <<controlname>>_GotFocus(Index as integer)
  5.     <<controlname>>(Index).BackColor = HIGH_BACKCOLOR
  6.     <<controlname>>(Index).SelLength = len(<<controlname>>(Index).Text)
  7.     <<controlname>>(Index).SelStart = 0
  8. end sub
  9.  
  10. ; got focus to change background color
  11. sub  <<controlname>>_LostFocus(Index as integer)
  12.     <<controlname>>(Index).BackColor = NORM_BACKCOLOR
  13.     <<controlname>>(Index).SelLength = 0
  14. end sub
  15.  
  16.  
  17.